home *** CD-ROM | disk | FTP | other *** search
- ********************************
- *áááááááááááááááááááááááááááááá*
- *ááásMARTWATCHáeQUATESáfILEáááá*
- *áááááááFORávERSIONá2áááááááááá*
- *áááááááááááááááááááááááááááááá*
- ********************************
-
- *===============================
- *áááááááásYSTEMáeQUATES
- *===============================
-
- jjsrfar = $ff6e
- jbsout = $ffd2
-
- clkrate = $d030
- fAST = $01
- sLOW = $00
-
- d1pra = $dc00 ;ciaá#1árEGISTERS.
- d1ddra = $dc02
- d1tod1 = $dc08
- d1tods = $dc09
- d1todm = $dc0a
- d1todh = $dc0b
- d1crb = $dc0f
-
- d2pra = $dd00 ;ciaá#2árEGISTERS.
- d2ddra = $dd02
- d2tod1 = $dd08
- d2tods = $dd09
- d2todm = $dd0a
- d2todh = $dd0b
- d2crb = $dd0f
-
- mmucr = $ff00
- bANK15 = $00
-
- bell = $c98e ;sCREENáeDITORáromáROUTINEáTOáRINGáTHEábELL.
-
- gettime = $7a1a ;basicáromáROUTINEáTOáPUTáTHEájIFFYácLOCKáINTOáfac1.
- fac1_asc = $8ecd ;basicáromáROUTINEáTOáCONVERTáfac1áTOáascii.
- str1 = $5f ;lOCATIONSáUSEDáINáCONVERTINGáfac1áTOáascii.
- str2 = $60
- strng2 = $72
- time_str = $ff
-
- trgtbank = $02
- trgtadx = $03
- sreg = $05
- areg = $06
- xreg = $07
- yreg = $08
- stkptr = $09
-
- gp1 = $fa ;zERO-pAGEáLOCATIONSáFORáwORKáaDDRESSES.
- gp2 = $fb
- gp3 = $fc
- gp4 = $fd
- gp5 = $fe
- gp6 = $ff
-
- txtptr = $3d ;aDDRESSáOFáNEXTáCHARACTERáFORábasicáchrgetáROUTINE.
- makestr = $53c6 ;basicá'let'áCOMMANDáTOáCREATEáAáVARIABLE.
-
- read = $06 ;vALUEáTOáSETáddraáFORáAárEADáoPERATION.
- write = $07 ;vALUEáTOáSETáddraáFORáAáwRITEáoPERATION.
- read_hi = $06 ;vALUEáTOáSETápraáTOáGETáREADYáFORáAárEAD.
- read_lo = $02 ;vALUEáTOáSETápraáTOárEADáINáAáBIT.
- write_hi = $04 ;vALUEáTOáSETápraáTOáGETáREADYáTOáwRITEáAáBIT.
- write_lo = $00 ;vALUEáTOáSETápraáTOáwRITEáOUTáAáBIT.
-
- *===============================
- *ááámACROádEFINITIONS
- *===============================
-
- *-------------------------------
- *áputadx,]1;]2
- *áuSEDáTOáPUTáANáimmediateá2-BYTEáADDRESSá]1áINTOáTHE
- *áDESIGNATEDáLOCATIONSá]2áINálOWáBYTE/hIGHáBYTEáFORMAT.
- *áaá-áDESTROYED.
-
- putadx mac
- lda #<]1
- sta ]2
- lda #>]1
- sta ]2+1
- <<<
-
- *-------------------------------
- *áprint,]1
- *árOUTINEáTOáPRINTáAáMESSAGEáTOáTHEáCURRENT
- *áOUTPUTáDEVICE.áoUTPUTSáUPáTOá256áCHARACTERS.
- *ábYTESáAREáOUTPUTáUNTILá$00áBYTEáREAD.
- *á(lOOKSáALOTáLIKEájprimm,áHMMM....)
- *áa,áyá-áDESTROYED.
-
- print mac
- ldy #$00
- GETBYTE lda ]1,y
- beq END
- jsr jbsout
- iny
- jmp GETBYTE
- END
- <<<
-